home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ für Kids
/
C++ for kids.iso
/
SETUP
/
US
/
CBUILDER
/
DATA.Z
/
BRPARTS.DFM
/
BRPARTS.txt
Wrap
Text File
|
1997-02-13
|
2KB
|
120 lines
object BrPartsForm: TBrPartsForm
Left = 631
Top = 414
HelpContext = 4
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Browse Parts'
ClientHeight = 235
ClientWidth = 384
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 384
Height = 37
Align = alTop
BevelOuter = bvNone
BorderWidth = 3
TabOrder = 0
object ActivateBtn: TSpeedButton
Left = 285
Top = 4
Width = 80
Height = 25
AllowAllUp = True
GroupIndex = 1
Caption = 'Backorders'
OnClick = ActivateQuery
end
object Bevel1: TBevel
Left = 3
Top = 32
Width = 378
Height = 2
Align = alBottom
Shape = bsTopLine
end
object DBNavigator1: TDBNavigator
Left = 8
Top = 4
Width = 135
Height = 25
DataSource = MastData.PartsSource
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
TabOrder = 0
end
object EditBtn: TButton
Left = 175
Top = 4
Width = 75
Height = 25
Caption = '&Edit'
ModalResult = 1
TabOrder = 1
OnClick = EditBtnClick
end
end
object Panel2: TPanel
Left = 0
Top = 196
Width = 384
Height = 39
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object CloseBtn: TButton
Left = 292
Top = 9
Width = 74
Height = 25
Cancel = True
Caption = '&Close'
Default = True
ModalResult = 2
TabOrder = 0
OnClick = CloseBtnClick
end
end
object PartsGrid: TDBGrid
Left = 0
Top = 37
Width = 384
Height = 159
Align = alClient
Columns = <
item
FieldName = 'PartNo'
end
item
FieldName = 'Description'
end
item
FieldName = 'OnHand'
end
item
FieldName = 'OnOrder'
end
item
FieldName = 'BackOrd'
end>
DataSource = MastData.PartsSource
Options = [dgTitles, dgColLines, dgRowLines, dgRowSelect]
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnDblClick = EditBtnClick
end
end